ccc 
ccc 
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| < >< >< << > 
<< OK Oc =< x 
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@ te ee 
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' 
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ca ca ww ww [vUTee) 
aaaacaacaacaacacaca pruyvur veer errerrereeyreyreyeeyreyverrey 
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aa aa ca ecccc 
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' 
Require file for DCX = Data Compression / Expansion Facility 
Version: *v04-000' 


leeeaneraneerenteenerenenerenererarenitenetnentnnenteesenntenerseenertetetett 


is COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


® 

® 

® 

® 

® 

i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED  * 

is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | 
ie TRANSFERRED. * | 

is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W —E * 

is SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGI " 

it CORPORATION, ° 

® 

® 

® 

® 

cra 

® 


!* DIGITAL ASSUMES NO RESPONSIBI 
:* SOFTWARE ON EQUIPMENT WHICH | 


ITH OTIC 
TAL EQ aul MENT 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


i eeeeeerereerrereeereeeeteeereteeeeeneeeeneeeeeteteenetereerereeetereereneee 
lee 
FACILITY: 
DCX == Data Compression / Expansion Facility 
ABSTRACT: 


The Data Compression / Expansion procedures provide a p .penerat 
method for reducing the storage requirement for a arbitrary data. 


! 
' 
' 
' 
' 
' 
' 
' 
' 
1 
i 
i ENVIRONMENT : 

VAX native, user mode. 
tee 

i 

i AUTHOR: David Thiel 
CREATION DATE: July, 1982 

‘ 
‘ 
' 


i MODIFIED BY: 


PREF ix.REQ;1 


! 
: Common built-in functions 
BUILTIN 


insque, 
remque; 


' 
: Define VMS block structures 


MACRO 


$ 
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BBLOCK = SBBLOCK2; ' use common definition 


! 
: Define routine Linkages 
LINKAGE 


lkg_ctx_check = 
~5sB " EREGISTER = 0, REGISTER = 1) : 


RESERVE (0, 1) NOTUSED (2, 3, 4, 5, 6, 7, 8, 9, 10, 11), 


do = 
CALL (¢ a = 0, REGISTER = 1), 
Lkg_long_mo 


“JSB 13 = oe = 1, RE a oe 
i — VE ¢ 


, 2) PRESERVE ( 
eat ets (REGISTER = 


NOPRESERVE ( 4 NOTUSED (2, 3, 4, 5, 6. 7, 8. 9, 11); 


Linkage to LIBSANALYZE_SDESC_R2 


LINKAGE 
js>_analyze_sdesc 


r2 = 
“JSB (REGISTER™= 0; oe = i ag tg Se » REGISTER = 2 : 


NOPRESERVE (0, 1, 2) i ( 
EXTC etn} ROUTINE 
bSanalyze_sdesc_r2 : 
sb_analyze_ sdesc. wre 


ADDRESSING_MODE (GENERAL); 


! 
Usefui macros 


MACRO 
: Macro to generate a pointer to a counted string 
cstring (string) = UPLIT (ZASCIC string )%, 
! Macro to describe a string 
stringdesc (string) = ZCHARCOUNT (string), 


6! ‘7, 8 9, 10, 


UPLIT (ZASCII string)%, 


= 2): 
a 6) NOTUSED (7, 8, 9, 10, 11) 
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H Macro to generate a quadword string descriptor 

descriptor (string) = BBLOCK Cdsc$c_s_bln] INITIAL (stringdesc (string))%, 
; Macro to generate a counted string 

countedstring (string) = VECTOR C2CHARCOUNT (string)+1, BYTE] INITIAL (BYTE (ZCHARCOUNT(string), ZASCII string ))%, 
Macro to execute a given sequence of commands and return if any error 

ere 


LOCAL 
status; 
status = (£REMAINING); 
IF NOT .status ! If error detected, 
RETURN .status; ! then return with error 
status ! Otherwise, status is block value 


' 
Macros to ease typing 
MACRO 


short = UNSIGNED (6)% ! Short attribute 

bytlit = UNSIGNED (8)% i Unsigned byte attribute 
, wordlit = UNSIGNED (165%; ' Unsigned word attribute 
Equated symbols 
LITERAL 

true = 1, ' Boolean TRUE 


false = 0; : 


! Boolean FALSE 
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